home *** CD-ROM | disk | FTP | other *** search
/ Apple II Magazines (DO) / Softdisk Magazette Volume 2, No. 07 (1983-03)(Softdisk)(Side A).zip / Softdisk Magazette Volume 2, No. 07 (1983-03)(Softdisk)(Side A).do / KICK.IT.OFF.bas < prev    next >
BASIC Source File  |  1996-12-24  |  1KB  |  39 lines
  1. 10  REM  KICK.IT.OFF
  2. 15 D$ =  CHR$(4)
  3. 20  TEXT : HOME 
  4. 30  HTAB 6: PRINT "SOFTDISK MAGAZETTE    MAR 83"
  5. 35  PRINT : HTAB 10: PRINT "A = COVER PAGE"
  6. 37  PRINT : HTAB 10: PRINT "B = HOWDY...."
  7. 40  PRINT : HTAB 10: PRINT "C = ABOUT SOFTDISK"
  8. 60  PRINT : HTAB 10: PRINT "D = SOFTWARE POLL"
  9. 70  PRINT : HTAB 10: PRINT "E = SOFT PALS"
  10. 80  PRINT : HTAB 10: PRINT "F = SOFT ADS"
  11. 85  PRINT : HTAB 10: PRINT "G = FROM GAMES"
  12. 86  PRINT : HTAB 10: PRINT "H = BOWDEN'S ADVENTURE"
  13. 87  PRINT : HTAB 10: PRINT "I = FEHRMANN'S MUSIC"
  14. 88  PRINT : HTAB 10: PRINT "J = ON WITH THE SHOW"
  15. 89  PRINT : HTAB 10: PRINT "K = QUIT"
  16. 90  VTAB 24: HTAB 3: PRINT "WHICH? ";: GET R$: PRINT R$;
  17. 95  IF R$ = "A" GOTO 1000
  18. 100  IF R$ = "B" GOTO 1500
  19. 110  IF R$ = "C" GOTO 2000
  20. 120  IF R$ = "D" GOTO 3000
  21. 130  IF R$ = "E" GOTO 4000
  22. 135  IF R$ = "F" GOTO 5000
  23. 140  IF R$ = "G" GOTO 6000
  24. 150  IF R$ = "H" GOTO 7000
  25. 160  IF R$ = "I" GOTO 7500
  26. 170  IF R$ = "J" GOTO 8000
  27. 175  IF R$ = "K" GOTO 9000
  28. 200  GOTO 90
  29. 1000  PRINT D$;"RUN MAR 83.COVER"
  30. 1500  PRINT D$;"RUN MY NAME IS APPLE"
  31. 2000  PRINT D$;"RUN ABOUT.SOFTDISK"
  32. 3000  PRINT D$;"RUN SOFTWARE.POLL"
  33. 4000  PRINT D$;"RUN SOFT.PALS"
  34. 5000  PRINT D$;"RUN SOFT.ADS"
  35. 6000  PRINT D$;"RUN FROM.GAMES"
  36. 7000  PRINT D$;"RUN INTRO.TO.GAME"
  37. 7500  PRINT D$;"RUN MUSIC"
  38. 8000  PRINT D$;"RUN SOFTDISK.PROG"
  39. 9000  TEXT : HOME : VTAB 12: HTAB 1: PRINT "DON'T FORGET TO BOOT OTHER SIDE OF DISK."